#!/usr/bin/perl
require "../config.pl";
require "lib_video.pl";

$re = $dbcnx->prepare(qq{SELECT state FROM video WHERE STATE=1});
$re->execute();
my $count_state_1 = $re->rows();
print "кол-во со ст. 1: $count_state_1";
if ($count_state_1 > 5)
{
	print "кол-во со ст. 1: $count_state_1";
	exit;
}
else
{
	print "$count_state_0\n";
	
	$re = $dbcnx->prepare(qq{SELECT id FROM video WHERE STATE=0});
	$re->execute();
	$id = $re->fetchrow_array();
	
	my $count_state_0 = $re->rows();
	if ($count_state_0 == 0)
	{
		print "кол-во со ст. 0: $count_state_0\n";
		print "Запись не найдена выхожу\n";
		exit;
	}
	else
	{
		print "кол-во со ст. 0: $count_state_0\n";
		print "найдена запись #: $id\n";
		#$id=9;
		$re = $dbcnx->prepare(qq{SELECT users_id FROM video WHERE id=?});
		$re->execute($id);
		$user_id = $re->fetchrow_array();
	
		#-----------------------Обработка--------------------------#
		$dbcnx->do(qq{UPDATE video SET state='1' WHERE id=$id}); # записываем эик статус "Обработка"

		##Читаем тэги из базы!!! и пишем в фаил
		@db_tag_read = db_tag_read($id);
		
		open (FILE, '-|', "ffmpeg2theora $DOC_ROOT/usr/$user_id/video/$id.video -o $DOC_ROOT/usr/$user_id/video/$id.ogg -p preview --artist=\"@db_tag_read[3]\" --date=\"@db_tag_read[5]\" --title \"@db_tag_read[2]\"") or print "ERROR!!!111";
		if(!<FILE>)
		{
			## Код не работает!!!
			print "ERROR!!!111";
		}
		$dbcnx->do(qq{UPDATE video SET state='2' WHERE id=$id}); # записываем эик статус "Готов"
		unlink "$DOC_ROOT/usr/$user_id/video/$id.video";# Удаяем оригинал!
		
		open (FILE, '-|', "$DOC_ROOT/video/video_upload.pl");# Запускаем этот скрипт заново!
		
		#$test = `$DOC_ROOT/music/lib_upload.pl`;
	}
}